Imports System.Data.SqlClient
Imports Microsoft.ApplicationBlocks.Data.SqlHelper

Public Class Domicilios
    Public Function ObtenerFiltradoRS(ByVal Cod_RS As Integer)
        Dim DS As New DataSet
        DS = ExecuteDataset(My.Settings.MiCadena, CommandType.StoredProcedure, "DomiciliosObtenerFiltradosRS", New SqlParameter("@Cod_RS", Cod_RS))
        Return DS
    End Function

    Public Function GenerarDomicilios(ByVal DirDom As String, ByVal CodPai As Integer, ByVal CodPro As Integer, ByVal CodCiuLoc _
    As Integer, ByVal CodRS As Integer, ByVal ObsDom As String)
        Dim DS As New DataSet
        DS = Microsoft.ApplicationBlocks.Data.SqlHelper.ExecuteDataset(My.Settings.MiCadena, _
        CommandType.StoredProcedure, "DomicilioGenerar", New SqlParameter("@DirDom", DirDom), _
        New SqlParameter("@CodCiuLoc", CodCiuLoc), New SqlParameter("@CodRS", CodRS), New SqlParameter("@ObsDom", ObsDom))
        Return DS
    End Function
End Class